home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / actio / Wreckage_src.lha / Source / Assembly / asm_3d_Al.asm < prev    next >
Assembly Source File  |  1998-06-30  |  506b  |  35 lines
  1.       CLR.w d0
  2. _asm3d_1:
  3.     MOVE.b    (a0)+    ,d0    ;app
  4.     MOVE.l     (a1)+    ,d1    ;x
  5.     MOVE.l     (a2)+    ,d2         ;z
  6.     MOVE.l     (a3)+    ,d3         ;y
  7.     
  8.     TST.b    d0
  9.     BEQ    _asm3d_2
  10.     
  11. ;    ASR.l     #8    ,d3    
  12. ;    ASR.l    #8    ,d3
  13.     CLR.w    d3
  14.     SWAP    d3
  15.     EXT.l    d3
  16.     TST.l     d3
  17.     BLE     _asm3d_2
  18.     
  19.     DIVS.l    d3    ,d1
  20.     ASL.l     #7    ,d1
  21.     DIVS.l    d3    ,d2
  22.     ASL.l    #7    ,d2
  23.     BRA    _asm3d_2a
  24.     
  25.         
  26. _asm3d_2:
  27.     CLR.w d0
  28. _asm3d_2a:
  29.     MOVE.l     d1    ,(a4)+    ;sx
  30.      MOVE.l     d2    ,(a4)+        ;sy
  31.       MOVE.w     d0    ,(a4)+        ;app
  32.       SUBQ.l     #1    ,d7           ;points-1
  33.       BGT     _asm3d_1           ;until points<=0
  34.  
  35.